home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 7 / Amiga Format AFCD07 (Dec 1996, Issue 91).iso / serious / shareware / programming / ace_basic / ace24.lha / prgs / Library / prefs.b < prev    next >
Encoding:
Text File  |  1996-09-11  |  409 b   |  24 lines
  1. {*
  2. ** Get screen font height via preferences.
  3. ** D Benn, July 1995
  4. *}
  5.  
  6. LIBRARY "intuition"
  7.  
  8. DECLARE FUNCTION ADDRESS GetPrefs(ADDRESS buf, ~
  9.                   SHORTINT bufsize) LIBRARY intuition
  10.  
  11. STRUCT Preferences
  12.   BYTE FontHeight
  13. END STRUCT
  14.  
  15. DECLARE STRUCT Preferences prefs
  16.  
  17. IF GetPrefs(prefs,SIZEOF(prefs)) THEN 
  18.   PRINT prefs->FontHeight 
  19. ELSE
  20.   PRINT "Error getting preferences."
  21. END IF
  22.  
  23. LIBRARY CLOSE "intuition"
  24.